home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / CopyRec.xdme < prev    next >
Text File  |  1995-08-01  |  472b  |  21 lines
  1. /* $VER: CopyRec.xdme 1.0 (01 Aug 1995) */
  2. /* Copyright © 1995 Fergus Duniho */
  3. /* This copies a block of text that is marked both as
  4.  * a rectangle and as a vertical block */
  5.  
  6. ARG start end
  7. width = end - start
  8.  
  9. bsave "T:temp"
  10. CALL Open(input,"T:temp","R")
  11. CALL Open(output,"T:rectangle","W")
  12.  
  13. DO FOREVER
  14.     line = Substr(Readln(input),start,width)
  15.     IF Eof(input) THEN LEAVE
  16.     CALL Writeln(output,line)
  17. END
  18. CALL Close(input)
  19. CALL Close(output)
  20. CALL Delete("T:temp")
  21.